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NUMERO 6 - VOLUME 2 
SETTEMBRE - OTTOBRE 1984 
Una copia L. 9.000 


Come leggere RUN: 

Collegate al vostro ZX Spectrum il vostro abituale registratore, date alimentazione ed inserite la cassetta nel registratore. 
Scrivete LOAD " ’’ e premete ENTER. Per scrivere LOAD dovete premere il tasto “J”; per scrivere “ ” dovete tenere 
premuto SYMBOL SHIFT e premere due volte “P". Automaticamente la rivista si carica fino alla conclusione del primo 
“blocco” di articoli; quando appare la scritta “FERMA IL REGISTRATORE" dovete o premere PAUSE o arrestare con 
STOP il registratore. Per voltare pagina basta premere "c". Al termine della lettura di un blocco vi verrà richiesto di far 
ripartire il registratore per caricare il blocco successivo e cosi via fino al termine della rivista. 

Non ci sono programmi bloccati o non salvabili all'Interno di RUN, se volete duplicare (esclusivamente per uso 
personale come stabilito dalle leggi internazionali del Copyright Act) un articolo o un programma non dovete far altro 
che dare BREAK quando vi viene chiesto di far partire il registratore e salvare il programma. Per programmi che 
comprendono più blocchi utilizzate il salvataggio a blocchi separati (salvate cioè i vari blocchi via via che vengono 
caricati). 


SOMMARIO 


NOME BLOCCO 


Start RUN N. 6. 

TAMBURINO. 

SOMMARIO. 

EDITORIALE. 

SCREEN MACHINE. 

NEWS. 

JUMP!. 

CORSO DI BASIC 6 a parte... 
HARD TIMES: AMPLI BF DIY 

PALOMBARO. 

TEST FLOPPY 3”. 

CORSO DI L/M 6 a parte. 

THE WIZARD. 

TEST SUPERFACE. 

CRASH UP. 

POSTA. 

MERCATO. 

SCREEN DEI LETTORI. 
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ZX Spectrum è un marchio della Sinclair Research Ltd. 
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EDITORIALE 


Come avevamo previsto qualche tempo fa, il mondo del software a larga diffusione si sta 
sempre piu assimilando a quello della musica incisa. 

Se conoscete l’ambiente, saprete anche dell’esistenza del Ticket TV, ovvero ogni disco 
soggetto alla pubblicità televisiva e rincarato di L. 1.000 sul prezzo normale. 

La stessa cosa sta avvenendo per il software su cassetta diffuso nelle edicole: alcune nuove 
pubblicazioni portano la dicitura TV Spot, e questo indica che nel discorso dei costi entra la 
nuova voce «pubblicità televisiva ». 

Nella selva editoriale in cui si trova il settore è abbastanza evidente la necessità di farsi 
conoscere dal pubblico e come al solito la strada praticamente piu semplice è quella dei 
mezzi di comunicazione su largha scala. 

Ma d’altro canto è anche vero che non è tutto oro quello che luccica [specie in TV]. C’è 
comunque sempre qualcuno che preferisce investire qualche milione in piu nel prodotto che 
nella pubblicità, quindi ancora una volta tocca a voi definire il cavallo vincente di questa 
forzata e continua corsa. 

Torniamo alla nostra gloriosa rivista... Finalmente anche noi italiani siamo riusciti ad 
esportare qualcosa all’estero e piu precisamente stiamo parlando di RUN International 
edizione tedesca. In corrispondenza del compleanno della nostra rivista ci sarà l’uscita in 
tutte le edicole della Germania di RUN International. Non si tratta di una cessione dei diritti, 
bensì di una realizzazione integrale della testata Tedesca da parte della nostra poliglotta 
redazione. 

Per festeggiare il lieto evento vi stiamo preparando un supernumero commemorativo da 
infarto, veramente zeppo di programmi, giochi, articoli, ma soprattutto un mare di sorprese. 
Vi aspettiamo quindi numerosi alle edicole a metà Novembre per festeggiare un glorioso 
anno di pubblicazione [cosa impossibile, almeno per un po’, per i nostri simpatici 
concorrenti]. 


Se lo Spectrum per te non ha segreti, se il Basic e l’Assembler sono come una 
seconda lingua, allora abbiamo bisogno di te! Se il «vile denaro» ti interessa 
possiamo dare sfogo al tuo interesse. Scrivici indicando le tue possibilità, se hai 
già qualcosa di pronto mandaci una copia, siamo interessati sia a programmi che 

articoli. 

CERCHIAMO COLLABORATORI IN TUTTA ITALIA 
Mandaci il materiale con indirizzo e recapito telefonico a 
AQUARIUS EDIZIONI, VIA LEOPARDI 9, 20123 MILANO 
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Sarebbe veramente difficile 
scrivere programmi in linguaggio 
macchina utilizzando come varia¬ 
bili solo i pochi registri a 
nostra disposizione. Si tratta 
di trovare il modo di scrivere 
dati che ci interessano non solo 
nell esiguo spazio all interno 
dello Z80 ma anche in quello che 
si chiama RRM, cioè' la memoria 
messaci a disposizione dallo ZX. 
Per far questo si usa ancora i' 
istruzione LD ma con una scrit¬ 
tura leggermente diversa dal 
solito, oe vogliamo memorizzare 
o per meglio dire copiare il 
contenuto del registro A nell' 
indirizzo 'x' scriveremo: 

_ 51 _ 


Ci 

sono 

anche 

PEEK e POKE: 

LD 

R,(BC) 

ca 

LD 

R,(DE) 

la 

LD 

R,(HL) 

7E 

LD 

B,(HL) 

4-6 

LD 

C,(HL) 

4-E 

LD 

D,(HL) 

4-6 

LD 

E,(HL) 

5E 

LD 

H,(HL) 

66 

1 D 

L,(HL) 

6E 

LD 

(BC) , R 

02 

LD 

(DE) , R 

12 

LD 

(HL) , R 

77 

LD 

(HL) , B 

70 

LD 

(HL) , C 

71 

LD 

(HL) , D 

72 

LD 

(HL) , E 

73 

LD 

(HL) , H 

74- 


OH - 

alt re istruzioni 
= LET R =PEEK BC 


= POKE BC,R 
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LD (x),A equivalente a 
POKE X,R 

Ri contrario se vogliamo cari¬ 
care il registro R col contenuto 
della cella 'x' l'istruzione sa¬ 
rà" : LD A,(x) che significa 
LET R = P E E K X 

Nel caso dei registri doppi il 
numero occupa 2 celle di memoria 
dato che anch'esse, come i re¬ 
gistri possono contenere solo 
numeri interi da 0 a 255. Quindi 
LD (16320),HL corrisponde alle 2 

istruzioni basic 
POKE 17000,HL-256*INT (HL/256) 
POKE 17001,INT (HL/256) 
o se preferite l'equivalente 
POKE 17000,L 
POKE 17001,H 

_52_ 
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Rncora una volta notate l'in¬ 
versione del numero: la parte 
alta va dopo e la parte bassa va 
prima; cosi se HL contiene 
32000 ( 7d 00h) . LD (19000) ,HL 

avra". l'effetto di mettere in 
19000 il valore 0 e in 19001 il 
valore di 125 (7dh). 

Per le operazioni di caricamen¬ 
to di un accumulatore doppio col 
valore di 2 celle di memoria 
valga quest'esempio: se nelle 
celle 31123/24- c'e' il valore 
254-35 , 

LD HL, (32123) significa 

LET HL =PEEK 32123+256*PEEK 32124- 

o l ' e quiva lente 

LET H =PEEK 32124- 

LET L =PEEK 32123 

_53_ 


- Q0 - 

I PUNTATORI 

Usciamo un attimo dall'ambito 
specifico del l/m per parlare di 
un argomento molto importante in 
tutti i linguaggi: i pointers . 

Un puntatore come dice il nome 
e' una cosa che punta,cioè in¬ 
dica determinati oggetti all'in¬ 
terno del computer. E'in pratica 
un numero che rappresenta l'in¬ 
dirizzo a cui noi possiamo tro¬ 
vare gli oggetti sopracitati 
quali ad esempio l'area delle 
variabili, la RRMTQP o tabelle 
che noi stessi abbiamo creato. 

I puntatori sono un po come- 
delie scatole nel cui interno 
troviamo dei bigliettini che ci 
dicono dove andare per trovare 
_56_ 
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certe cose. E' motto importante 
capire bene ed essere padroni 
della differenza che c'e tra 
puntatore e oggetto puntato : i l 
puntatore e la scatola con il 
suo bigliettino che si trovano 
sempre allo stesso posto fisso; 
l'oggetto puntato,invece.può 
essere qualsiasi cosa e il suo 
indirizzo non e fi sso.Questo 
tipo di struttura dinamica e' 
molto usato in Pascal e si rive¬ 
la molto utile anche in 1 /m dato 
che in tal modo noi possiamo co¬ 
struire delle tabelle di punta¬ 
tori che ci dicono dove abbiamo 
messo ciò' che ci interessa. La 
Piu' importante di queste tabel- 

_57_ 
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dopodiché' HL varca 254-35. 

L' operazione: 

LD (indirizzo) ,accumulatore 
non altera il contenuto dell' 
accumulatore.I codici per queste 
operazioni sono: 


LD R,(pq) 
LD BC , (pq) 
LD DE,(pq) 
LD HL,(pq) 
LD (pq),R 
LD (pq),BC 
LD (pq),DE 
LD (pq),HL 


3a 

e d 4- b 
e d 5 b 
2 a 
32 

e d 4-3 
e d 53 

... 22 

Rd esempio LD DE, (16533) essen¬ 
do lt.533 =4.095h , ha come codice 
e d 5 b954-0 mentre LD(16539),hl 
229 b 4- 0 . 
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le e' quella c he v iene costruita 
automaticamente dal computer ap¬ 
pena lo si accende ed e quella 
dedicata alle 'variabili di sis¬ 
tema' che nello ZX parte dall 
indirizzo 23552 e si estende fi¬ 
no a 23733 ; da questa noi pos¬ 

siamo ricavare molte informazio- 
n i . 

23730/31 troviamo il puntatore 
al primo byte non usabile per il 
BRSIC: in pratica questo e l' 
indirizzo della RflMTOP. 

23627/28 qui c'e il puntatore 
all'area delle variabili. Se in 
un programma BRSIC noi scriviamo 
LET COSTO=1000, il numero 1000 , 
associato alla parola costo ven- 
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gono memorizzati nella zona di 
memoria indicata dagli indirizzi 
23628/29 

2364-1/4-2 questo e' il puntatore 
che ci indica l'ultimo byte 
dell area delle variabili. Dato 
che questa viene dopo il listato 
dei programmi .i l PEEK di queste 
locazioni ci indica quanta memo¬ 
ria abbiamo abbiamo occupato tra 
programma e variabili relative. 
Se poi facciamo la differenza 
col valore di RPMTOP, abbiamo il 
numero dei bytes di memoria li¬ 
bera, con le seguenti operazioni 
PRINT (PEEK 23730+256♦PEEK 23731 
) - (PEEK 2364-l+256*PEEK 2364-2) 
23618/19 questo e' il puntatore 
alla prossima riga da eseguire 
_59_ 
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23620 questo e il puntatore 
al numero di statement all'in¬ 
terno della riga alla quale si 
deve saltare, fid esempio se noi 
volessimo con delle istruzioni 
in l/m simulare un GOTO 2560 
sara sufficiente fare: 

LD HL,2560d 
LD R,1 

LD (23618),HL 
LD (23620),R 

Questi sono dunque gTi indiriz¬ 
zi ai quali troverete alcuni dei 
puntatori piu utili, la cui co¬ 
noscenza da' grande potere sulla 
macchina. Un elenco completo po¬ 
tete comunque trovarlo sul ma¬ 
nuale dello ZX. Citiamo ancora 
_60_ 
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23659 che ci da' il numero di 
righe che vengono usate per la 
parte inferiore dello schermo; 
se poKato a 0 permette di al 
posto delle 22 righe di schermo 
normalmente disponibili, di uti¬ 
lizzarne 24- 

Su l prossimo numero faremo un 
po' di pratica con i PEEK ;POKE; 
LD (ind) ,acc; LD acc, (ind) e 
puntatori quindi mi raccomando, 
NON PERDETECELO! 
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basic r.rtsir basic basic basi: 


BASIC BASIC BASIC BASIC BASIC BASIC 


CORSO 
6 a 


DI BRSIC 
parte 


a cura di 
Pntonio M. 
e candido 
Canee llara 


Proponendosi di approfondire ulterior¬ 
mente in un prossimo fu tur o Le possibili¬ 
tà' grafiche dello ''■SPECTPLIM'', gli autori 
considerano a questo punto opportuno ana¬ 
lizzare, fra l'altro. Le potentissime fun¬ 
zioni che Sir dive Sinclair ha reso di¬ 
sponibili per manipo La re Le stringhe. 


BASIC BASIC BASIC BASIC BASIC BASIC BASIC BASIC BASIC BASIC BASIC 
E possibile unire piu' stringhe usando 
il carattere 


•10 INPUT a $ : INPUT b $ 

2 0 L ET C $ = "C $ = v + a $ + b $ 

30 PRINT C$ 

spesso, anche per sottoporre a control¬ 
li eventuali ~h-fui , e' necessario ana¬ 
lizzare parte di una parola, il seguente 
listato mostra come estrarre da una strin¬ 
ga una parte di essa. 

10 LET xì = 'a b c d ef gh Ki 
20 LET a $ = X $ (2 TO 5) 

30 LET bt=xì (4- TO ) 

4-0 LET C$=X$( TO 5) 

50 LET d$=X$(5) 

60 LET e $=X $ ( TO ) 

70 LET f$=X$() 


80 PRINT ,X1 


ai'bi'cìdtes 


BASIC BASIC BASIC BASIC BASIC 10 BA5IC BASIC BASIC BA5IC BASIC 


BASIC BASIC BASIC BASIC BA5IC 12 BASIC BASIC BASIC BASIC BASIC 


BASIC BASIC BASIC BASIC BASIC BASIC BASIC BASIC BASIC BA5IC BASIC 

URRIREILI STRINGA 
Le variabili stringa, ri conoscibi li dal 
carattere , contengono dati dì tipo al- 
fanumerico . Per alfanumer ì ci s intendono 
le lettere ed i numeri privi di significa¬ 
to matematico come pure i caratteri gra- 

f i C i . 

I nomi disponibili per le stringhe sono 
in totale 26, in quanto devono essere com¬ 
posti da una sola lettera. Le variabili, 
comunque, numeriche comprese, possono es¬ 
sere dimensionate in vettori, come piu' a- 
vanti esposto. 

E' possibile avere variabili numeriche 
e variabili stringhe con lo stesso nome. 

10 LET a =10: LET a$="frutta" 

20 LET C$ = 'V V : LET d$ = "1234- v 

BA5IC BASIC BASIC BASIC BASIC 11 BA5IC BA5IC BASIC BASIC BASIC 


BASIC BASIC BASIC BA5IC BASIC BASIC BASIC BASIC BA5IC BASIC BASIC 

10 LET a $ = " 1234-56 " 

20 LET a $ ( 2 TO 4- ) = " a b C " 

30 PRINT a $ 

Sostituite la linea 20 con la seguente. 
20LET a $ (2 TO 4- ) ="ab" 

Ed ora analizzate attentamente la se¬ 
guente applicazione, cercando di compren¬ 
derne la linea 30. 

10 LET a$="LunMarMerGiouenSabDo 
m " 

20 INPUT " Numero del giorno'’"' 
della settimana",giorno 
30 PRINT "giorno ';giorno;" ",a 

$ (1+3*(giorno-1) TO 3+giorno) 

4-0 GO TO 10 

BA5IC BASIC BA5IC BASIC BASIC 13 BASIC BA5IC BASIC BA5IC BASIC 





















BASIC BASIC BASIC BASIC BASIC BASIC BASIC *BA5IC BASIC BASIC BASIC 
LEN 

Questa funzione calcola il numero dei 
caratteri componenti una stringa. 

STR $ 

La funzione STR$ rende stringa una va¬ 
ri a bile nume rica. 

URL 

URL, al contrario, rende numerica una 
variabile stringa con contenuto matematico 

10 INPUT "numero=7",a 

20 L. ET a $ = 5TR$ 3: PRINT LEN a$ 

30 LET C =URLa $+UflL' v 2*4 A ‘ : PRINT C 

BASIC BASIC BASIC BASIC BASIC 14- BASIC BASIC BASIC BASIC BASIC 


BASIC BASIC BASIC BASIC BASIC BASIC BASIC BASIC BA5IC BASIC BASIC 

DATO RERD RESTORE 

L'istruzione "DfiTfi" permette di scrive¬ 
re direttamente nel listato una serie di 
dati che verranno letti sequenzialmente 
dalla istruzione "FEFD". 

10 FOR i=1 TO 7 
20 RERD X $ 

30 PRINT X$ 

4-0 NEXT i _ . . 

50 DRTR "Lun"i"Mar",*Me r , Gio 
, "Uen*,"Sab",'Dora' 

"FESTGFE" stabi l isce da quale numero di 
linea il prossimo "FEFD" dovrà' iniziare 
a leggere i dati. 

Il listato che segue, mostra efficace¬ 
mente l'utilità' di questo "set" di istru¬ 
zioni . 

BASIC BASIC BA5IC BASIC BA5IC 17 BA5IC BASIC BASIC BASIC BASIC 


BASIC BASIC BASIC BASIC BASIC BASIC BASIC BASIC BASIC BASIC BASIC 
DIM 

Questa funzione permette di dimensiona¬ 
re matrici (o vettori) di variabili ed ot¬ 
tenere cosi un insieme di dati , numerati, 
con lo stesso nome di variabile. 

Proponiamo qui di seguito un programma 
esplicativo. 


10 

DIM d 

C 

10) 










20 

FOR n 

— 

1 TO 


10 








30 

INPUT 


" d a t 

o 

/ 

n 

« 

" = 

, 

d 

( n ) 


4-0 

NEXT 

n 











50 

INPUT 


" n u m 

e 

r o 

d 

i 

o 

r d i 

n 

a rn e 

n t o 

v 

' " (ma 

X 

10) 

* v 

, n u 

m 

e 

r o 





60 

PR I NT 


" da 

t 

o " 

/ 

n 

u m 

ero 


" = " 

, d i 


numero) 

70 GOTO 50 


BASIC BASIC BASIC BASIC BASIC 15 BASIC BA5IC BASIC BASIC BASIC 


BASIC BASIC BASIC BASIC BASIC BASIC BASIC BASIC BASIC BASIC BASIC 

10 INPUT " mesi oppure"'" g 

iorni della settimana "'" ? " ; F 

LRSH 1 ; ' •' " m /g ) " ; a $ 

20 IF a$="m" THEN RESTORE 90: L 

ET X =12 

30 IF a $ = "g" THEN RESTORE 100: 

LET X =7 

4-0 FOR i =1 TO X 

50 RERD ri , Z $ 

60 PRINT n,Z$ 

70 NEXT i 

80 PRUSE 100: CLS : GO TO 10 

90 DRTR 1,"Gen",2,"Feb",3,"Mar" 

, 4- , " Rp r " , 5 , " Ma g " , 6 , "Giu" , 7 . " L u g " 

, 8 , " Rg o " . 9 , " Se t " , 10 , " O t t c , 11 , " No 

vM2,"Dic* 

100 DRTR 1,"Lun",2,"Mar",3,"Mer" 

, 4-, "Gio" , 5 , " U e n " , 6 , " b a b " , 7 , " D o m " 

BASIC BASIC BASIC BASIC BASIC 13 BASIC BASIC BASIC BASIC BASIC 


BASIC BASIC BASIC BASIC BASIC BASIC BASIC BASIC BA5IC BASIC BASIC 

Contrariamente alle matrici di vettori 
numerici, le matrici di stringhe,per esse¬ 
re dimensionate, necessitano di due infor¬ 
mazioni fra le parentesi. 

10 DIM a*(10,2) 

Il primo numero indica la lunghezza del 
vettore,il secondo il numero di caratteri 
di ogni stringa. 

Nel seguente esempio disporremo di una 
variabile normalissima, ma della lunghezza 
di fissa di 5 caratteri. 

10 DIM a $(5) 

E' possibile disporre di matrici muiti- 
di mens ionate come mostrato dalle applica¬ 
zioni seguenti. 

BASIC BASIC BASIC BASIC BASIC 16 BASIC BASIC BASIC BASIC BASIC 


BASIC BASIC BASIC BASIC BASIC BA5IC BA5IC BASIC BASIC BASIC BASIC 
ISTQGRRMMI 

Dopo avervi mostrato nella scorsa pun¬ 
tata una applicazione di grafica e di mo¬ 
vimento con il videogame FLJM^'", pensiamo 
sia interessante prendere in considerazio¬ 
ne una applicazione tipica dei programmi 
gestiona li. 

Rbbiamo quindi programmato nel blocco 
che segue un generatore di istogrammi a 
barre utile per rappresentare g ra fi camen te¬ 
si tuaz ioni matematiche, economiche o di 
qualsiasi altro tipo. 

Potrete quindi salvare sia la rappre¬ 
sentazione grafica che i dati numerici per 
ottenere un archivio di indubbia utilità'. 

finalizzate attentamente il listato, 
specie la parte generatrice dell'ascissa 
e della ordinata. 

BASIC BASIC BASIC BASIC BASIC 19 BA5IC BASIC BASIC BASIC BASIC 


ESPANSIONE RAM 48K in kit 
L. 80.000 

Espandi il tuo computer finalmente a 48K, potrai così sfruttare a pieno la 
nostra rivista. Approfitta di quest’offerta riservata ai lettori di RUN. Invia 
subito un Vaglia Postale da 80.000 lire intestato ad Aquarius Edizioni snc, 
Via Leopardi 9, MILANO, 20123. Riceverai la tua espansione a 48K a 
stretto giro posta. 
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500 BRIGHT 1: BORDER 5: PAPER 5 

INK 0 : CLS 

510 PRINT RT UAL "11",UAL "0";" 
FERMA IL REGISTRATORE 


520 BEEP .5,20: PAUSE 70 
530 REM 


1105 REM ******** 

1110 IF ascisse=10 OR ascisse =20 
OR ascisse=50 THEN GO TO 1130 
1120 PRINT «1; FLASH 1,"UALORE N 
ON PROGRAMMATO": PAUSE 100: GO T 
O 1070 
1130 REM 




******************************** 


54-0 

REM 

550 

REM 

560 

REM 

570 

REM 

530 

REM 

590 

REM 

6 0 0 

REM 

610 

REM 

620 

REM 

630 

REM 

850 

REM 

360 

INK 

370 

CLS 


SHaBZBBBgB 


dei 


L a 


tratto=conlatore 
punto pL ottato 
ascissel=stabiLisce 

ogni quanto stampare 
barretta trasversale 
n u m ero v ert / n umerooriz = 
cifra da stampare 
a s c i s s e 3 = i n c r e m e n t o 
della ci f ra da stampare 
vertic a le/orizzontale = 
posizione di stampa 
della cifra 
ascisse2=decremento 
della posizione di 
stampa della cifra 
punto=contatore del 
punto per le linee 
orizzontali piu lunghe 
barra=stabi lisce ogni 
quanto stampare la li¬ 
nea orizzontale piu' 
lunga 

rapporto=mo itipli catore 
colcolato in base alla 
equazione del rapporto 


fra ascisse 
disponibi li 


e punti 


FLASH 1." 
FLASH 0 , È»T 


M MI" 
* * * * 
SS0 
ra d 
a n d i 
390 
90 0 
910 
920 
930 


AT 5 
*****" 
PRINT ; 
i " ; AT 10, 
do",AT 11 


■a=a=*3=reira*«gi 


PAPER 0: BORDER 0 
PRINT , INK 6;AT 3,6; 
* * * * ***************"; 

4-, 6, GESTIONE ISTOGRA 
6; FLAbH 1,"********** 


INK 4- ; AT 9,17, "a cu 
il; "Antonio M. e C- 
,16;" Cancellara" 


PAUSE 30 

POKE 23609,70 

RESTORE 

REM 




94-0 

LET 

i 

n 

k 

= 

0 








950 

LET 

a 

— 

27 









960 

LET 

t 

r 

a 

t 

t 

o 

u 

= 

— 

1 



970 

LET 

t 

r 

a 

t 

t 

o 

o 

— 

1 

1 



930 

LET 

V 

e 

r 

t 

i 

c 

a 

l 

e 

= 

20 

990 

LET 

n 

u 

m 

e 

r 

o 

V 

e 

r 

t 

= 

0 

1000 

LET 

o 

r 

i 

z 

z 

o 

n 

t 

a 

l 

e 

= 1 

10 10 

LET 

n 

u 

rn 

e 

r 

o 

o 

r 

i 

z 

= 

0 

1020 

LET 

k 

= 

0 










10 30 

LET 

V 

e 

t 

t 

o 

r 

e 

= 

0 




104-0 

LET 

<= 

a 

V 

e 

d 

a 

t 

i 

— 

0 



1050 

REM 














114-0 input "DATA mensili" '"oppur 

e" "introduzione vettore dati" 
"per ordinata" "(data.•■'vettore) 

; z $ 

114-5 CLS 

1150 IF z$="data" THEN GO TO 121 
0 

1160 REM 


1170 
1175 
1130 
113 1 
ego * 
presentat 
dato 
) ; " • 

1132 
1135 
1187 


DIM 0 $ (15,10) : DIM n$ (15,2) 
REM ******** 

FOR h=l TO 14- 

INPUT "max 10 caratteri, p r 
(solo due verranno'" ""rap 
"sulla ordinata"'" 
n."; FLASH 1; INK 3;" ";(h 

; FLASH 0;o $ (h) 

LET ri $ ( h ) =0 $ ( h ) (1 TO 2 ) 

NEXT h 

REM ******** 


1190 BEEP .5,20: PAUSE 30 

1200 INPUT "max 10 caratteri, pr 

ego "'"(solo uno verrà ..rappre 

sentato" ' "su l la ordinata" "dat 
0 n.. " ; FLASH l; INK 4-;" "; (h);" 

" ; Flash 0 ;o $(h) 

1205 LET n $ (h) = O $ (h ) (1 TO 2) 

1210 REM 


ASCISSE 


1220 FOR V =13 TO 175 
1230 LET trattoU=trattOU+l: IF t 
rattoU=ascissel THEN LET trattou 
= 1: PLOT 18,V: PLOT 19 ,V : LET nu 
merovert=numerovert+ascisse3: le 
T verticale=verticale-ascisse2 
PR I NT AT v e i>ti c a le , 0 + (nuuerovert 
< 10 ) inumerò tire r t 

124-0 let punto =pun to+1 : IF punto 
=barra THEN LET punto=0 DRAU IN 


K 4- ; 230,0 
1250 PLOT 20,V 

1260 NEXT V 

1270 REM 


ORDINATA 


1230 FOR 0=20 TO 254- 
1290 LET trattoO = trattoO + l- IF t 
r a t t OO = 16 THEN LET trattoO=0 GO 
SUB 1330 
1300 PLOT O,12 
1310 NEXT O 
1320 GO TO 14-30 
1330 REM 
134-0 PLOT 0,11 


***** 
PLOT O 


10 


LET 


rizzontal e=orizzontale +2 
1350 IF orizzonta i e=orizzontale 
32 THEN GO SUB 1370 
1360 RETURN . 

13 70 REM 




— urna mm MsmMs11 b§h — 

1060 PAUSE 100: BEEP .05,20 
107O input "introdurre valore" " 
ascisse (10/20x50) ";ascisse 

1075 REM ******** 

1030 IF ascisse =10 THEN LET 3SCi 

sse 1 = 17: LET ascisse2=2: LET asc 
is s e 3 = 1 : LET p u nt o =-2 : LET barra 
=32; LET rappor tO=16 
1090 IF ascisse=20 THEN LET asci 
SSe 1=9: LET aSCiSSe2 = l: LET 3SCi 
sse3=1: LET puntO=-2: LET barra= 
4-0: LET rappor to=S 

1100 IF ascisse =50 THEN LET asci 
S S e 1 = 17 : LET ascisse2=2: LET 3SC 
isse3=5: LET punto=-2: let barra 
=32: LET rapporto=16/5 


1330 IF Z $-"da t a" THEN READ hi $ : 
print at 21,orizzonta le;m$: RETU 
RN 

1390 LET k = k + 1 

14-00 IF K =15 THEN LET X$=n$(15) ( 
1 TO 1). PRINT AT 21,orizzontale 
; X $ R ET U R N 

iil0 PRINT AT 21,orizzonta le;n$( 
k ) 

14-20 RETURN 
14-30 REM 




14-4-0 

14-60 

14-70 

14-30 

14.90 

1500 


PAUSE 70 
LET k =0 
RESTORE 2000 
DIM y(15) 

DIM rn $ (15,2) 

REM ********************* 


7 


















151 
15 1 


15". 

154- 
L. ET 
i m 

550 

155 

155- 
l = 0 
157 

156 

159 

160 
15 1 
ND 

EH 
152 
165 
C< r t 
164 


O BEEP 
5 REM 


.05,20 


LOOP 




0 F OR 1=1 TO 15 
0 L ET V e t t o r e = v ette re <-1 
0 IF z $ -'• d ri t a •• T HEM READ t$ 
ri. ì ' U = t $ INPUT ( t $) ; " n = ? 

• . (ascisse) ";y$: GG TO 1 


n = '? ( r» ci x 

y (vettore 


0 INPUT in$ ( m ; " 

(dscisitj,") " ,y$ 

0 IF y $ - ' " THEN LEI 
G O T O 153 0- 
0 L ET y ( V e t t ore) = U AL y $ 

0 Input ’ioiore 1 

C IF 1$='" THEN LET i $ = ” 3 ” 

0 LET iOk=UAL i$ 

O IF ( iy (vettore) <=ascisse) R 
C ( in k < = 3) HMD (inK >-0) ) ) -1 TU 


GO TO 1650 
O GO TO 1540 
0 LET y 2 = INT 
O ) 

O REM 


(y (vettore) *rapp 


GENERAZIONE COLONNINA 


1650 
1660 
16 7 0 
10.0 
1630 
. 0 

±690 
1700 
1720 
172 5 


FOR X = 14 
PLOT INK 
IF (<=14 


T O y 2 + 14 
i n k , a , x 
THEN DRRU 


IF 1=15 THEN DRRU 

NEXT X 
LET a = a +16 
NEXT ( 

REM 


INK inK; 
INK in k,4 


1730 REM 


1SI59H1 


1740 BEEP .05,20: INPUT "REGISTR 

AZIONE SCHERMO? (s /Ti ) ", d $ 

1750 IF d $ = •'£- THEN LET j$ = "barr 
e”: GO TO 1610 

1760 BEEP .05.20: BEEP .05,20: I 

NPUT "UISURLIZZAZIONE DATI? (S X 
n)”.;d$ IF d $ = •■£■• THEN LET j$ = "d 
a t i " : GO Tu 1660 

1770 BEEP .05,20: INPUT "OREAZIO 

NE ISTOGRAMMA” "Oppure" "FINE" 

• ' ( i f ) " ; d $ 

1730 IF d$="i” THEN GO TO 760 
1790 GO TO 2010 


1S00 REM 


REGISTRAZIONE SCHERMO 


1310 BEEP .5,20: INPUT "TITOLO=? 
( rn axlOcar ) ”, t $ 

1320 IF i$="barre" THEN GO TO 13 
60 

1330 PRINT AT ±3.10;t$ 

1640 IF Savedati=0 THEN BEEP 1,2 
0: BEEP .5,20 LET savedati=1: I 
NPUT "ANNOTAZIONI";a$: PRINT a $ 
1350 LET savedati=0 REM toglie¬ 
re questa linea per permettere 
la scrittura delle annotazioni 
solo alla p r i rii a registrazione 
1360 SANE t $SCREEN$ 

1370 GO TO 1740 
1330 REM 


UISURLIZZAZIONE DATI 


1390 CLS 

1900 IF Z$="data" THEN RESTORE 2 
000 

1910 PRINT AT 2,0, 

1920 FOR h=l TO 15 

1930 IF z$ = "data" THEN READ f $ : 
PRINT TAB 3+ (h <10) ; h;TAB 6; f$,TA 
B 16; " = " , y (h ) 

1940 IF Z$="vettore" THEN PRINT 
TAB 2 ; h j TAB 7 ; o $ ( h ) ; ” = ”;y(h) 

1950 NEXT h 

1960 BEEP .05,20: INPUT “REGISTR 
AZIONE SCHERMO? (S/n)";d$: IF d$ 
=”S” THEN GO TO 1610 
1970 GO TO 1770 
1930 REM 


LINEE DI DATA 


1990 DATA "Ge","Fe”,"Mr","Ap","M 
g , “Gi ” , "■?■?” , ‘ ‘ L li , "Ag" , "Se" , "Ot" 
./•No " • "Di " . ”•?-?•• . ” ?” 

2000 DATA “GÈNNAIÓ”,"FEBBRAIO”,” 
MARZO”,"AP 

MéRÉ ,: ’ I "ÓTT 
MB RE " , •'??? 

2005 REM 


F IN E 


PILE” . "MAGGIO” . "GIUGNO 
UGLIO”,"AGOSTO”."SETTE 
O ERE” , NOVEMBRE A , "DICE 


2010 BRIGHT 1: BORDER 5: PAPER 5 
INK 0: CLS 

2020 PRINT AT UAL ”11”,UAL ”0”;” 
FAI PARTIRE IL REGISTRATORE 


2030 L OAD 
2040 


SOFT SALES BY AQUARIUS EDIZIONI 

□ DUPLICALL 

Programma per il Backup dei nastri protetti e non, anche Headerless e 
fino a 47.5 Kbytes. L. 12.000 

□ CASSETTA FEDELTÀ’ 

Dieci programmi indispensabili, 5 games e 5 utility. L. 12.000 

□ SPECTRUM & MUSIC VOL. 1 

Una raccolta di programmi classici che non possono mancare nella na¬ 
stroteca del sinclairomane. L. 10.000 

□ ARRETRATI RUN N. 1-4 

Completa la tua collezione richiedendo i numeri che ti mancano L. 15.000 

SCONTO ABBONATI: Duplicali L. 10.000; Cassetta Fedeltà L. 6.000; Spec- 
trum & Music Voi. 1 L. 8.000; Spectrum & Music Voi. 2 L. 12.000; Arretrati 
L. 10.000. 

Invia Vaglia Postale ad Aquarius Edizioni, Via Leopardi 9, 20123 Milano, 
specificando nome, indirizzo e cassette richieste. 
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Personal Multi-Printer Silver-Reed 


Small but Powerful N/ 

The EXD 10 Personal Multi-Printer is thè Ns S^ ^ A 

productofSILVER-REED'sstate-of-the-art©leo-^^fc^N^ 
tronic technology and a revolutionary new print 

System. This incredible little machine is light and ^A 

pact enough to carry anywhere and runs on battery A 

power for true portability, making it thè perfect companion A 

for business trips. With Its fine quality dot matrix printing head, it 

will produce clear. clean text as you fly or ride to your destination. It 

will print on either normal or thermal paper, and produces an amazing^^^^ 

range of characters and symbols with none of thè bother of changing printing elements* 

And. thanks to its whisper-silent electronic action, you can type anywhere, anytime, 

without disturbing those around you. J 





COSA NE DIRESTI DI UNA MACCHINA PER SCRIVERE PORTATILE 
IN GRADO DI DIVENTARE UNA STAMPANTE CON INTERFACCIA 
PARALLELA CENTRONICS A SOLE L. 544.500 IVA INCLUSA? 

ATTENZIONE! QUESTO PREZZO È RISERVATO Al LETTORI DI RUN, 
POICHÉ IL PREZZO DI LISTINO È DI L. 635.000 


Ciao? sono la nuova Personal Multi-Printer SILUER-REED. 

Mi chiamo EXD 10 e funziono con 4 pile torcia od a 
corrente; posso stampare sia su carta comune che su car¬ 
ta termica; sono anche una calcolatrice ( + - x e :). 

Peso solo due chili e mi puoi portare con te in tut¬ 
te le occasioni! sono silenziosa e affidabile; prima di 
stampare ti faccio vedere sul mio display a cristalli li¬ 
quidi queIlo che stai scrivendo. 

Con 1'interfaccia Centronics puoi collegarmi al tuo 
computer utilizzando una delle tante interfacce Centronics 
disponibili per il tuo ZX Spectrum ed ottenere il massimo 
da programmi come il Tasuord Two od altri Uord Processors. 

Puoi anche usarmi per la stampa di testi e dati su 
fogli comuni fino a 75 caratteri (ASCII + caratteri spe¬ 
ciali). Beneficio di una garanzia di sei mesi oltre a quel¬ 
la del nome SEIKO. 

Se mi vuoi» completa del1 1 interfaccia Centronics > 

EXD 10» pronta per essere connessa tramite Printer Intel— 
face (Sandy» Kempston o B&U) al tuo Spectrum» ritaglia e 
spedisci il taglando allegando assegno di lire 272.250.- 
orrispondente al 50% dell'importo totale. 


TAGLIANDO SILVER REED EXD 10 

Nome_Cognome_ 

\ 

Via_ CAP_ 

Città_Prov._ 

□ inviatemi 1 EDX10 + Interfaccia Centronics - accludo L. 272.250 come 
acconto, salderò alla consegna per un totale di L. 544.500. 

Ritaglia e spedisci a: 

AQUARIUS EDIZIONI, VIA LEOPARDI 9, 20123 MILANO. 

L’offerta è valida solo per i lettori di RUN. Gli abbonati riceveranno in 
omaggio una copia del DUPLICALL. 
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VENDO 


SCAMBIO 


NOME.COGNOME___ 

IND....CITTA.CAP 



NOME.COGNOME 

IND.CITTA 


cap 
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LA PAGELLA DI RUN 6 


STILATA DA 

NOME . COGNOME. 

VIA. CITTA’. 

PROVINCIA. CAP. ETÀ’ 

QUANTI COMPUTER HAI POSSEDUTO . 


ARTICOLO 


insuff. suff. buono 10 + 


Start RUN N. 6. 

TAMBURINO. 

SOMMARIO. 

EDITORIALE. 

SCREEN MACHINE. 

NEWS. 

JUMP!. 

CORSO DI BASIC 6 a parte .. 
HARD TIMES: AMPLI BF DIY 

PALOMBARO. 

TEST FLOPPY 3”. 

CORSO DI L/M 6 a parte .... 

THE WIZZARD. 

TEST SUPERFACE. 

CRASH UP. 

POSTA. 

MERCATO . 

SCREEN DEI LETTORI. 


0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


GIUDIZIO COMPLESSIVO 


0 


□ABBONATO 

Suggerimenti: 


CONTRIBUISCI A MIGLIORARE LA TUA RIVISTA 
MANDACI I TUOI GIUDIZI COMPILANDO QUESTA PAGINA. 
GLI ANNUNCI NON VERRANNO ACCETTATI SE PRIVI DELLA 
PAGELLA COMPILATA. 


Stacca e spedisci la pagina: AQUARIUS Edizioni - Via Leopardi, 9 - 20123 Milano. 
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; E’ UNA SOUWCWOT'i 
IU’ BELLA DELL' INTEF 
ROGRAMMABILE ”VIC 


ACgA JOYSTICK ] 
SflSr DEL TUO AM 


A TUA "VICTORIA 


VICTOR'^ 


DISTRIBUTORE 
PER / COMPUTERSHOP. 


20133 MILANO 

VIA MONTE SUELLO, 3 

TEL. (02) 747048 


VIA CAGLIERÒ, 17 20125 MILANO 
TEL. (02) 6887604 


COMPUTER DI VISION 



